home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / ab20 / unarced / utilities / shells / sksh / scr_source / dstack.s < prev    next >
Text File  |  1995-03-17  |  651b  |  27 lines
  1. #!c:sksh
  2.  
  3. #*************************************************************************
  4. # This function displays the directory stack.
  5. #*************************************************************************
  6.  
  7.    local _stack
  8.  
  9.    if [ "$1" = '-?' ]
  10.    then
  11.       echo 'Usage:' $(basename $0)
  12.       echo '       (displays directory _stack)'
  13.       return 1
  14.    fi
  15.  
  16.    # --- use _stack so we don't mess up the original -------------------------
  17.  
  18.    _stack="$DIRSTACK"
  19.  
  20.    # --- print out all the components of the stack, one per line -------------
  21.  
  22.    while [ -n "$_stack" ]
  23.    do
  24.       echo $(car "$_stack" ',')
  25.       _stack  = $(cdr "$_stack" ',')
  26.    done
  27.